home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c6.d64 / halterm.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  13KB  |  384 lines
  1. 10 REM  BBS NAMES START AT LINE# 165 
  2. 20 REM  PHONE #'S START AT LINE# 190 
  3. 30 REM  QL$ IS ID/PASSWORD REMINDER  
  4. 40 REM  THIS PRG IS IN THE PUBLIC DOMAIN
  5. 50 IFPEEK(22784)=76GOTO150
  6. 60 POKE665,5:POKE666,13:F3=8
  7. 70 POKE53281,11:PRINT"[147] HAL TERM ":PRINT"[150]VERSION 4.2 / 2 DEC 84"
  8. 80 PRINT"[159]WRITTEN BY RICH BUCHANAN."
  9. 90 PRINT"[158]WITH SPECIAL THANKS TO:":PRINT"  EARL GOLDBERG,  [155]OF THE"
  10. 100 PRINT"[155]   KANSAS CITY COMMODORE USERS' GROUP."
  11. 110 IFPEEK(828)<>169THENGOSUB3230
  12. 120 FORX=1TO1000:NEXT:GOTO140
  13. 130 GOTO420
  14. 140 PRINT"[159]LOADING MACHINE LANGUAGE SUBROUTINES..."
  15. 150 POKE24816,6:POKE24817,0:REM 300 BAUD 8BIT NO PARITY
  16. 160 POKE53280,0 :POKE646,7:POKE53281, 0
  17. 170 IFPEEK(22784)<>76THENLOAD"AVT.ML2",8,1
  18. 180 IFPEEK(49152)<>169THENLOAD"AVT.ML1",8,1
  19. 190 R%=5:MO%=6:SE$="":ML=22784
  20. 200 POKE56,86:POKE644,86:CLR:OPEN5,2,0,CHR$(PEEK(24816))+CHR$(PEEK(24817))
  21. 210 POKE665,5:POKE666,13:RE$=" ":SE$=" ":MO%=134:R%=0:C$="0123456789ABCDEF"
  22. 220 RP=2:RS=0:WP=RP:WS=RS:GOSUB10000
  23. 230 BS=255:TP$="[207]LD 7 [194]IT [208]ROTOCOL":TY=0
  24. 240 POKE24575,RP:POKE24574,RS+96:POKE24573,WP:POKE24572,WS+96
  25. 250 PA(0)=10:PA(1)=6:PA(2)=2
  26. 260 ML=22784:PRINTCHR$(14):POKE24569,0
  27. 270 OPEN1,8,15:POKE556,0:POKE552,0:POKE553,1
  28. 280 DN$="":GOTO310
  29. 290 GET#5,A$,A$:IFFF=1THENGOSUB2160
  30. 300 SYSML:CLOSE11:POKE24569,0:TM=0:Z=0
  31. 310 POKE198,0:POKE53280,6:PRINT"[147][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  32. 311 PRINT"[145][158] =*= [193]UTO [200][193][204]-[212]ERM 4.2   [205][193][201][206] [205][197][206][213] =*=  "
  33. 312 PRINT"[145][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  34. 320 PRINT"         1 > [212]ERMINAL [205]ODE":PRINT"         2 >[159] [212]RANSMIT [208]ROGRAM "
  35. 330 PRINT"         3 >[156] [210]ECEIVE [208]ROGRAM"
  36. 340 PRINT"         4 > [196]ISK [195]OMMANDS"
  37. 350 PRINT"         5 >[150] [193]UTODIAL"
  38. 360 PRINT"         6 >[152] [212]OGGLE [208]UNTER [208]ROTOCOLS"
  39. 370 PRINT"         7 > [209][213][201][212]"
  40. 380 IFTY=1THENPRINT"         8 >[159] [195]HANGE [194]LOCK-[212]RANSMIT [211]IZE"
  41. 390 PRINT"  <[195][204][210]/[200][207][205][197]>[158] [210]ETURN TO [205][197][206][213]"
  42. 400 PRINT"[159]  [208]UNTER VERSION : "TP$
  43. 402 PRINT"    [153][212]HIS TERMINAL SUPPORTS [200][193][204]'S [194][194][211]"
  44. 403 PRINT"     [158]    BY   [210]ICHARD [194]UCHANAN[145][145][145][145][145]"
  45. 410 IFTY=1THENPRINT"[159]                   [194]LOCK SIZE ="BS"[157] "
  46. 420 GOSUB10010
  47. 430 IFA$=""THEN420
  48. 440 ONVAL(A$)GOTO460,840,480,2220,1260,2660,1070,2900
  49. 450 GOTO420
  50. 460 PRINT"[147]  [212]ERMINAL [205]ODE  "
  51. 470 GOTO2950
  52. 480 PRINT"[147]    [208]UNTER [196]OWNLOADING [205]ODE  [146]":PRINT"          [180]"TP$"[170]"
  53. 490 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT"[206]AME OF [198]ILE FOR [196]ISK?"
  54. 500 PRINT" [195]AUTION: [193]UTO [211]AVE W/ [210]EPLACE [146]":IFTY=1THEN2830
  55. 510 PRINT"> ";:GOSUB1120:S$=B$
  56. 520 IFS$=""THENPRINT#5,"[193]";:GOTO2950
  57. 530 S$="@0:"+S$
  58. 540 GOSUB750:S$=S$+T$+",W"
  59. 550 CLOSE2:OPEN2,8,2,S$:GOSUB1210:IFES THENPRINT:PRINT""ES$"":CLOSE2:GOTO480
  60. 560 PRINT"[147][156][210][197][195][197][201][214][201][206][199][146] "B$""
  61. 570 PRINT#5,"TTTTTTTTTTTTTTTTTTTTTTT";
  62. 580 FORX=0TO10:NEXT:GET#5,A$:SS=ST:IFSS=0THEN580
  63. 590 SYSML+18:SS=ST:IFSS THEN640
  64. 600 FORX=0TO10:NEXT:GET#5,A$:SS=ST:IFSS=0THEN600
  65. 610 S1=PEEK(ML-2):S2=PEEK(ML-1):SYSML+12
  66. 620 IFS1<>PEEK(ML-2)ORS2<>PEEK(ML-1)THEN650
  67. 630 SYSML+15:PRINT#5,"";:PRINT"-";:GOTO580
  68. 640 CLOSE2:PRINT#5,"SSSSSSSSSSSSSSSSSSSSS";:PRINT:PRINT"[156] [196][207][206][197] ":FF=1:GOTO2950
  69. 650 PRINT#5,"";:PRINT":";:GOTO580
  70. 660 PRINT"[212]YPE OF [198]ILE:"
  71. 670 PRINT"([208])ROGRAM, ([215])ORD[208]RO, OR ([211])EQ?":PRINT"> ";
  72. 680 GETB$:IFB$=""THEN680
  73. 690 TY$=B$:FL=0
  74. 700 IFB$="P"THENT$=",P":POKE557,0:PRINT"[208]ROGRAM":FORX=1TO900:NEXTX:RETURN
  75. 710 IFB$="S"THENT$=",S":POKE557,0:PRINT"[211][197][209]":FORX=1TO900:NEXTX:RETURN
  76. 720 IFB$="W"THENT$=",P":POKE557,1:PRINT"[215]ORD[208]RO":FORX=1TO900:NEXTX:RETURN
  77. 730 IFB$=CHR$(13)THENFL=1:RETURN
  78. 740 GOTO680
  79. 750 PRINT#5,"UUUUUUUUUUUUUUUUUUUUUUUUU";
  80. 760 GET#5,A$:IFST<>0THEN760
  81. 770 IFA$="P"THENT$=",P":POKE557,0:A$="[208]ROGRAM":GOTO810
  82. 780 IFA$="S"THENT$=",S":POKE557,0:A$="[211][197][209]":GOTO810
  83. 790 IFA$="W"THENT$=",P":POKE557,1:A$="[215]ORD[208]RO":GOTO810
  84. 800 GOTO760
  85. 810 PRINT"[198]ILE [212]YPE: "A$""
  86. 820 GET#5,A$:IFST=0THEN820
  87. 830 RETURN
  88. 840 PRINT"[147]  [208]UNTER [213]PLOADING [205]ODE  [146]":PRINT"          [165]"TP$"[167]"
  89. 850 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":IFTY=1THEN2710
  90. 860 PRINT"[206]AME OF [198]ILE TO [211]END?":PRINT"> ";:GOSUB1120:S$=B$:IFS$=CHR$(13)THENS$=""
  91. 870 IFS$=""THENPRINT#5,"[193]";:GOTO2950
  92. 880 GOSUB660:IFFLTHENS$="":GOTO870
  93. 890 PRINT"[147][156][212][210][193][206][211][205][201][212][212][201][206][199][146] "S$""
  94. 900 CLOSE2:OPEN2,8,2,S$+T$:GOSUB1210:IFESTHENPRINT""ES$"":CLOSE2:GOTO860
  95. 910 FORX=1TO10:PRINT#5,TY$;:NEXTX:PRINT
  96. 920 GET#5,A$:IFST<>0ORA$<>"U"THEN920
  97. 930 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN930
  98. 940 SYSML+9:CK=ST
  99. 950 FORX=1TO400:NEXT
  100. 960 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN960
  101. 970 FORT=0TO255:PRINT#5,CHR$(PEEK(ML-256+T));:NEXTT
  102. 980 PRINT#5,"ZZZZZZZZZZZZZZZZZZZZZZZZZZ";
  103. 990 IFPEEK(669)<>PEEK(670)THEN990
  104. 1000 GET#5,A$:IFST<>0THEN1000
  105. 1010 IFA$=""THENPRINT":";:GOTO950
  106. 1020 IFA$<>""THEN1000
  107. 1030 IFCK=0THENPRINT"-";:GOTO930
  108. 1040 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN1040
  109. 1050 PRINT:PRINT"[156] [196][207][206][197][160]":FF=1:CLOSE2:GOTO2950
  110. 1060 SYSML+21:A$=CHR$(PEEK(634)):RETURN
  111. 1070 IFTY=0THENPRINT:PRINT
  112. 1080 PRINT"[209][213][201][212]?  [193][210][197] [217][207][213] [211][213][210][197][146]?  (Y/N)";
  113. 1090 GETZ$:IFZ$="N"THEN310
  114. 1100 IFZ$="Y"THENCLOSE5:CLOSE1:CLOSE2:CLOSE11:GOTO2530
  115. 1110 GOTO1090
  116. 1120 PRINT" [146][157]";:B$=""
  117. 1130 GETA$:IFA$=""ORA$=""ORA$="[147]"THEN1130
  118. 1140 IFA$=""ORA$="[145]"ORA$=""ORA$="[157]"THEN1130
  119. 1150 IFA$=" "THENIFLEN(B$)=0THEN1130
  120. 1160 IFA$=CHR$(20)THEN1190
  121. 1170 IFA$=CHR$(13)THENPRINT" ":RETURN
  122. 1180 B$=B$+A$:PRINT" [157]"A$" [146][157]";:GOTO1130
  123. 1190 IFLEN(B$)=0THEN1130
  124. 1200 B$=LEFT$(B$,LEN(B$)-1):PRINTA$;:GOTO1130
  125. 1210 REM GET ERROR CHANNEL
  126. 1220 INPUT#1,E1$,E2$,E3$,E4$
  127. 1230 ES$=E1$+","+E2$+","+E3$+","+E4$
  128. 1240 ES=VAL(E1$):RETURN
  129. 1250 POKE22784,0:RUN
  130. 1260 B1=56577:B2=56579:IF(PEEK(B1)AND16)<>0THEN1280
  131. 1270 PRINT"       [217]OU ARE CURRENTLY [207][206]-[204][201][206][197]!":GOSUB3490:POKE198,0:GOTO420
  132. 1280 POKEB2,32:POKEB1,0
  133. 1290 PRINT"[147][149]     -- [194]ULLETIN [194]OARD [196]IRECTORY --     [146]":GOSUB1640
  134. 1300 PRINT"[156][217]OUR CHOICE":GOSUB1800
  135. 1310 PRINT"[145][205]OVE [212]-[196] SWITCH TO [196][193][212][193][146]               ":FORK=1TO2000:NEXTK:GOTO1340
  136. 1320 D$="":PRINT"[145][197]NTER NUMBER TO DIAL >     [157][157][157][157][157]";:INPUTD$:IFLEN(D$)<7THEN1290
  137. 1330 RETURN
  138. 1340 POKEB1,32:T=200
  139. 1350 T=T-1:IFT<>0THEN1350
  140. 1360 D=LEN(D$):FORX=1TOD:N$=MID$(D$,X,1):IFN$<CHR$(48)ORN$>CHR$(57)THENII=1
  141. 1370 PRINT"[129]"N$"[146]";:N=VAL(N$):IFN=0THENN=10:IFII=1THENII=0:NEXTX:GOTO1280
  142. 1380 GOSUB1420:NEXTX
  143. 1390 NT=NT+1:FORXB=1TO(40-D):PRINT" ";:NEXTXB
  144. 1400 PRINT"[152][212]RY #"NT:GOTO1520
  145. 1410 PRINT"[199]OING TO [212][197][210][205][201][206][193][204] [205][207][196][197]":PRINTQL$:GOTO2950
  146. 1420 FORN1=1TON
  147. 1430 POKEB1,0
  148. 1440 T=3
  149. 1450 T=T-1:IFT<>0THEN1450
  150. 1460 POKEB1,32:T=3
  151. 1470 T=T-1:IFT<>0THEN1470
  152. 1480 NEXTN1:T=15
  153. 1490 T=T-1:IFT<>0THEN1490
  154. 1500 RETURN
  155. 1510 END
  156. 1520 PRINT"  [156]([208]RESS <[198]7> TO CHOOSE A NEW NUMBER)":CT=0:DC=0:BU=0:SI=0
  157. 1530 IFLEN(D$)>8THENSI=-100
  158. 1540 PRINT"[215]HEN CONNECTION IS MADE, BELL WILL SOUNDBEFORE GOING TO [212]ERMINAL";
  159. 1550 PRINT" MODE.":POKE198,0
  160. 1560 PRINT" ---=[ [208]RESS[159] <[195]LR/[200]OME> FOR [205]ENU ]=----";:NP=0:FOR ZZ= 450TO0STEP-1
  161. 1570 GETA$:IFA$="[136]"THENZZ=-1:GOTO1280
  162. 1580 X=PEEK(B1):X=XAND16:GOSUB2540
  163. 1590 IFA$=CHR$(19)GOTO310
  164. 1600 IFBU>3ANDDC=0ANDCT=0THENBU=0:ZZ=-1:GOTO1620
  165. 1610 NEXTZZ
  166. 1620 POKEB1,0:FORZY=1TO200:NEXTZY:PRINT"[145][145][145][145][145][145][145][145][145][158]  ###### [195]ONTINUOUS [196]IALING [205]ODE";
  167. 1630 PRINT" #######":PRINT"              [157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOTO1340
  168. 1640 PRINT"[145]";
  169. 1650 PRINT"<1>[195][194][205] [208]ROG [216]CHANGE <2>[195][194][205] [201]NFO [216]CHANGE"
  170. 1660 PRINT"<3> [200][193][204] #1          <4> [212]HE [213][211][197][210]*[208][207][210][212]  "
  171. 1670 PRINT"<5> - - - - - - - - <6> - - - - - - - -"
  172. 1680 PRINT"<7> - - - - - - - - <8> - - - - - - - -"
  173. 1690 PRINT"<9> - - - - - - - - <10>- - - - - - - -"
  174. 1700 PRINT"<11>- - - - - - - - <12>- - - - - - - -"
  175. 1710 PRINT"<13>- - - - - - - - <14>- - - - - - - -"
  176. 1720 PRINT"<15>- - - - - - - - <16>- - - - - - - -"
  177. 1730 PRINT"<17>- - - - - - - - <18>- - - - - - - -"
  178. 1740 PRINT"<19>- - - - - - - - <20>- - - - - - - -"
  179. 1750 PRINT"<21>- - - - - - - - <22>- - - - - - - -"
  180. 1760 PRINT"<23>- - - - - - - - <24>- - - - - - - -"
  181. 1770 PRINT"<25>- - - - - - - - <26>- - - - - - - -"
  182. 1780 PRINT"[149]              [146][159] <99> [207]THER [149]              "
  183. 1790 RETURN
  184. 1800 NT=0
  185. 1810 PRINT"";
  186. 1820 A$="":INPUTA$:IFVAL(A$)>99THEN1280
  187. 1830 IFVAL(A$)=99THEN1320
  188. 1840 IFVAL(A$)<1THEN310
  189. 1850 IFLEN(A$)>2THEN1280
  190. 1860 ONVAL(A$)GOTO1900,1910,1920,1930,1940,1950,1960,1970,1980,1990,2000,2010,2020,2030,2040
  191. 1870 A=VAL(A$)-15
  192. 1880 ONAGOTO2050,2060,2070,2080,2090,2100,2110,2120,2130,2140,2150
  193. 1890 GOTO1280
  194. 1900 D$="1-405-381-2041":QL$="<ID/PASSWORD:******>":RETURN
  195. 1910 D$="1-405-634-4890":QL$="<ID/PASSWORD: ******>":RETURN
  196. 1920 D$="1-816-931-7425":QL$="<ID/PASSWORD: ******>":RETURN
  197. 1930 D$="1-817-293-6331":QL$="<PASSWORD: ******>":RETURN
  198. 1940 D$="***5***":QL$="<PASSWORD: ******>":RETURN
  199. 1950 D$="***6***":QL$="<PASSWORD: ******>":RETURN
  200. 1960 D$="***7***":QL$="<PASSWORD: ******>":RETURN
  201. 1970 D$="***8***":QL$="<PASSWORD: ******>":RETURN
  202. 1980 D$="***9***":QL$="<PASSWORD: ******>":RETURN
  203. 1990 D$="**10***":QL$="<PASSWORD: ******>":RETURN
  204. 2000 D$="**11***":QL$="<PASSWORD: ******>":RETURN
  205. 2010 D$="**12***":QL$="<PASSWORD: ******>":RETURN
  206. 2020 D$="**13***":QL$="<PASSWORD: ******>":RETURN
  207. 2030 D$="**14***":QL$="<PASSWORD: ******>":RETURN
  208. 2040 D$="**15***":QL$="<PASSWORD: ******>":RETURN
  209. 2050 D$="**16***":QL$="<PASSWORD: ******>":RETURN
  210. 2060 D$="**17***":QL$="<PASSWORD: ******>":RETURN
  211. 2070 D$="**18***":QL$="<PASSWORD: ******>":RETURN
  212. 2080 D$="**19***":QL$="<PASSWORD: ******>":RETURN
  213. 2090 D$="**20***":QL$="<PASSWORD: ******>":RETURN
  214. 2100 D$="**21***":QL$="<PASSWORD: ******>":RETURN
  215. 2110 D$="**22***":QL$="<PASSWORD: ******>":RETURN
  216. 2120 D$="**23***":QL$="<PASSWORD: ******>":RETURN
  217. 2130 D$="**24***":QL$="<PASSWORD: ******>":RETURN
  218. 2140 D$="**25***":QL$="<PASSWORD: ******>":RETURN
  219. 2150 D$="**26***":QL$="<PASSWORD: ******>":RETURN
  220. 2160 S=54272:FORL=0TO24:POKES+L,0:NEXT:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15
  221. 2170 FORP=1TO5:POKES+4,21:FORT=1TO250:NEXT:POKES+4,20:FORT=1TO50:NEXT:NEXT
  222. 2180 POKES+24,0:POKES+15,0:POKES+5,0:POKES+1,0:FORL=0TO24:POKES+L,0:NEXT
  223. 2190 IF FF=1THENFF=0:RETURN
  224. 2200 POKE631,13:POKE198,1
  225. 2210 PRINT"[147]":GOTO1410
  226. 2220 CLOSE15:OPEN15,8,15:PRINT"[147]":GOTO2390
  227. 2230 PRINT"[147][159] <[211][208][193][195][197][194][193][210] TO STOP/CONTINUE>":SYS828:OPEN1,8,15
  228. 2240 IFFG=1THENPRINT"[145][145]":FG=0
  229. 2250 PRINTTAB(8)"[156][208]RESS ANY KEY TO CONTINUE"
  230. 2260 GET A$:IFA$=""THEN2260
  231. 2270 GOTO2390
  232. 2280 IFT$="M"THENCLOSE7:CLOSE6:GOTO310
  233. 2290 GETT$:IFT$=""GOTO2280
  234. 2300 RETURN
  235. 2310 REM DISK COMMANDS
  236. 2320 C$="":PRINT"[145]>                              [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  237. 2330 GETB$:IFB$=""THEN2330
  238. 2340 PRINTB$;:IFB$=CHR$(13)THEN2360
  239. 2350 C$=C$+B$:GOTO2330
  240. 2360 PRINT#15,C$
  241. 2370 PRINT"[145]";
  242. 2380 INPUT#15,A$,B$,C$,D$:PRINT"           "A$","B$","C$","D$"        ":GOTO2240
  243. 2390 PRINT"[147]   [158]  ******* [196]ISK [195]OMMANDS *******  [146]":PRINT
  244. 2400 PRINT"           [196] - [196]IRECTORY"
  245. 2410 PRINT"           [194] - [194]LOCKS [198]REE"
  246. 2420 PRINT"           [211] - [196]ISK [211]TATUS"
  247. 2430 PRINT"           > - [196]ISK [195]OMMAND"
  248. 2440 PRINT"           [205] - [210]ETURN TO [205]AIN [205]ENU":POKE198,0
  249. 2450 FORX=1TO6:PRINT"          ";MID$("[149][154][156]",X,1);"[208]RESS KEY FOR OPTION"
  250. 2460 FORXX=1TO10:NEXTXX:GETA$:IFA$=""THENPRINT"[145]";:NEXTX:GOTO2450
  251. 2470 IFA$="D"THEN2230
  252. 2480 IFA$="."ORA$=">"THENFG=1:GOTO2310
  253. 2490 IFA$="M"THENCLOSE6:CLOSE7:GOTO310
  254. 2500 IFA$="S"THEN2370
  255. 2510 IFA$="B"THEN3100
  256. 2520 GOTO2460
  257. 2530 SYS64738
  258. 2540 DC=DC+X:IFDC>0THENSI=SI+1:GOTO2570
  259. 2550 CT=CT+1:SI=0:IFCT<40THENRETURN
  260. 2560 ZZ=-1:GOTO2160
  261. 2570 IFSI>100THENZZ=-1:GOTO2630
  262. 2580 IFCT>0ANDCT<17THENBU=BU+1
  263. 2590 IFCT<17THENDC=0:CT=0:RETURN
  264. 2600 REM:IF(PEEK(B1)AND16)=0THEN1341
  265. 2610 NP=NP+1:IFNP>2THENZZ=-1:GOTO2630
  266. 2620 DC=0:CT=0:RETURN
  267. 2630 DI$=" --- [206][207][210][205][193][204] [208][200][207][206][197] [204][201][206][197] ---              ":DC=0:CT=0:FF=1
  268. 2640 PRINT"[145][145][145][145][145][145][145][145][145]"DI$:POKEB1,0:POKEB2,32:GOSUB2160:PRINT"[208]RESS ANY KEY TO CONTINUE
  269. 2650 [151]198,0:[146]198,1:[151]198,0:[137]1280
  270. 2660 [139]TY[178]1[167][138]
  271. 2670 [151]53280,0:[129]K[178]1[164]125:[130]
  272. 2680 [160]5:[159]5,2,0,[199](6):[151]665,75:[161]#5,A$:BS[178]255:TY[178]1:[141]10000
  273. 2690 [160]15:[159]15,8,15:TP$[178]"CLR(null)EW (null)ROTOCOL (LEFT$ATN(null))"
  274. 2700 TY$[178]"PSP":[137]310
  275. 2710 [153]"(null)AME OF ASCILE TO SEND?":[153]"> ";:[141]2970:[139]I$[178]""[167]2950
  276. 2720 [153]"LOADCLR(null)(null)ATN(null)(null)(null)RIGHT$(null)(null)RIGHT$(null)CHR$WAIT "I$""
  277. 2730 [153]:T$[178]",P,R":[160]2:[159]2,8,2,I$[170]T$:[132]15,ER:[139]ER[178]64[167]2760
  278. 2740 FT[178]1:[139]ER[179]20[167]2800
  279. 2750 [160]2:[153]"STR$ISK VALRROR!":[137]2950
  280. 2760 T$[178]",S,R":[160]2:[159]2,8,2,I$[170]T$:[132]15,ER:[139]ER[178]64[167]2790
  281. 2770 FT[178]2:[139]ER[179]20[167]2800
  282. 2780 [160]2:[153]"STR$ISK VALRROR!":[137]2950
  283. 2790 [160]2:[153]"ASCILE (null)YPE VALRROR!":[137]2950
  284. 2800 [158]49173:[151]51227,FT:[158]49164:[139][194](512)[179][177]1[167]2820
  285. 2810 [160]2:[158]49173:[153]:[153]:[153]"CLR STR$(null)(null)VAL ":FF[178]1:[137]2950
  286. 2820 [158]49173:[151]51224,BS:[158]49158:[160]2:[158]49173:[153]:[153]"CLR STR$(null)(null)VAL ":FF[178]1:[137]2950
  287. 2830 [153]"(null)AVE ATNS > ";:[141]2970:[153]:[139]I$[178]""[167]2950
  288. 2840 [153]"LOADCLR(null)VALLENVALRIGHT$(null)RIGHT$(null)CHR$WAIT "I$""
  289. 2850 [158]49173:[158]49161:[139][194](512)[178]1[167][158]49173:FF[178]1:[137]2950
  290. 2860 T$[178]","[170][202](TY$,[194](51227),1)[170]",W"
  291. 2870 [159]2,8,2,"@0:"[170]I$[170]T$:[129]X[178]1[164]1300:[130]X:[153]:[158]61310
  292. 2880 [158]49173:[158]49155:[160]2:[151]668,[194](667):[158]49173:FF[178]1
  293. 2890 [153]:[153]"CLR STR$(null)(null)VAL ":[137]2950
  294. 2900 [139]TY[179][177]1[167]420
  295. 2905 [153]"ONONONONONON";
  296. 2910 [153]"               (null)EW PEEKLOCK (null)IZEWAIT >     CMDCMDCMDCMD";:[141]2970:[139]I$[178]""[167]310
  297. 2920 BS[178][181]([197](I$)):[139]BS[179]40[167]BS[178]40
  298. 2930 [139]BS[177]255[167]BS[178]255
  299. 2940 [137]310
  300. 2950 [153]:[158]49173:[139]FF[178]1[167][141]2160
  301. 2960 [158]49167:[137]310
  302. 2970 I$[178]""
  303. 2980 [153]" WAITCMD";
  304. 2990 [161]A$:[139]A$[178]""[176]A$[178]""[176]A$[178]"LOAD"[176]A$[178]""[176]A$[178]"ON"[176]A$[178]""[176]A$[178]"CMD"[167]2990
  305. 3000 [139]A$[178]" "[167][139][195](I$)[178]0[167]2990
  306. 3010 [139]A$[178][199](13)[167]3080
  307. 3020 [139]A$[178][199](20)[167]3060
  308. 3030 [139][195](I$)[177]16[167]2990
  309. 3040 [139]([198](A$)[175]127)[179]32[167]2990
  310. 3050 [153]A$;:I$[178]I$[170]A$:[137]2980
  311. 3060 [139][195](I$)[178]0[167]2990
  312. 3070 [153]" CMDCMD";:I$[178][200](I$,[195](I$)[171]1):[137]2980
  313. 3080 [153]" ":[142]
  314. 3090 [153]
  315. 3100 [143] BLOCK FREE CHECKER BY JIM BUTTERFIELD
  316. 3110 [152]15,"I0"
  317. 3120 [159]9,8,0,"$0:"[170]S$
  318. 3130 N$[178][199](0)
  319. 3140 [161]#9,A$,A$,A$,A$,A$,A$
  320. 3150 [161]#9,A$:[139]A$[179][177]""[137]3150
  321. 3160 [161]#9,A$,A$,A$,B$
  322. 3170 F[178][198](A$[170]N$)[170][198](B$[170]N$)[172]256
  323. 3180 [139]S$[179][177]"7%JK"[167][160]9
  324. 3190 [160]9:[153]"ON           PEEK(null)(null)LEN(null)(null) ASC(null)VALVAL :"F"CMD     "
  325. 3200 [160]9:[153]:[153][163]8)"ONCLR(null)RESS ANY KEY TO CONTINUE":[151]198,0
  326. 3210 [161] A$:[139]A$[178]""[167]3210
  327. 3220 [137]2390
  328. 3230 I[178]828
  329. 3240 [135]A:[139]A[178]256[167]3260
  330. 3250 [151]I,A:I[178]I[170]1:[137]3240
  331. 3260 [139][194](65440)[178]135[167][151]924,189
  332. 3270 [131] 169,1,32,195,255,169,36
  333. 3280 [131] 141,240,3,169,48,141,241
  334. 3290 [131] 3,169,1,162,8,160,0
  335. 3300 [131] 32,186,255,169,2,162,240
  336. 3310 [131] 160,3,32,189,255,32,192
  337. 3320 [131] 255,169,64,32,144,255,162
  338. 3330 [131] 1,32,198,255,32,144,255
  339. 3340 [131] 32,207,255,32,207,255,32
  340. 3350 [131] 207,255,32,207,255,201,0
  341. 3360 [131] 240,58,32,204,255,32,228
  342. 3370 [131] 255,201,32,208,3,32,196
  343. 3380 [131] 3,162,1,32,198,255,32
  344. 3390 [131] 207,255,168,32,207,255,72
  345. 3400 [131] 152,170,104,32,205,221,169
  346. 3410 [131] 32,32,210,255,32,207,255
  347. 3420 [131] 201,0,208,8,169,13,32
  348. 3430 [131] 210,255,76,115,3,32,210
  349. 3440 [131] 255,76,162,3,169,1,32
  350. 3450 [131] 195,255,32,204,255,169,204
  351. 3460 [131] 133,178,96,32,228,255,201
  352. 3470 [131] 32,208,249,96,256
  353. 3480 [142]
  354. 3490 [129]X[178]1[164]800:[130]X:[153]"ON                                    ONONONON":[142]
  355. 10000 [134]M$(16):T$[178]"                                       "
  356. 10005 [141]10120:[142]
  357. 10010 [161]A$:[139]A$[179][177]""[167]10040
  358. 10020 [141]10060
  359. 10030 [137]10010
  360. 10040 [153]""T$
  361. 10050 TI$[178]"000000":I[178]0:[142]
  362. 10060 W[178]W[170]1:[139]W[179]1[167][142]
  363. 10070 W[178]0:[139]Z[178]0[167]Z[178]1:I[178]0:O$[178]T$[170]M$(1)[170]M$(2)[170]T$
  364. 10080 I[178]I[170]1:[139]I[179][178]175[167]10100
  365. 10090 I[178]1:Z[178]Z[170]2:O$[178]T$[170]M$(Z)[170]M$(Z[170]1)[170]T$:TI$[178]"000000":[139]Z[177]14[167]Z[178]0:[137]10070
  366. 10100 [153]"";
  367. 10110 [153][202](O$,I,39);:[129]D[178]1[164]25:[130]D:[142]
  368. 10120 M$(1)[178]"(null)HIS TERMINAL PROGRAM AND BULLETIN BOARD HAS BEEN RELEASED"
  369. 10130 M$(2)[178]" TO THE (null)(null)PEEK(null)RIGHT$LEN STR$(null)(null)ATNRIGHT$(null) BY (null)ICHARD PEEKUCHANAN."
  370. 10140 M$(3)[178]"ATNUTO LEFT$ATN(null)-(null)ERM IS DESIGNED TO OPERATE WITH LEFT$ATN(null) AND (null)UNTER STYLE"
  371. 10150 M$(4)[178]" PEEKULLETIN PEEKOARD (null)YSTEMS, BOTH OLD AND NEW STYLE PROTOCOLS."
  372. 10160 M$(5)[178]"RIGHT$T SUPPORTS PEEKPEEK(null) FILE TRANSFERS AS WELL AS AUTODIALING"
  373. 10170 M$(6)[178]" WITH LENOMMODORE 1650 AND (null)ESTRIDGE 6420 MODEMS."
  374. 10180 M$(7)[178]"LEFT$ATN(null)'S PEEKPEEK(null) SYSTEM VERSION 4.2 IS (null)LEFT$VAL"
  375. 10190 M$(8)[178]" (null)(null)(null)RIGHT$(null)ATN(null)VAL BULLETIN BOARD SYSTEM FOR THE LENOMMODORE 64 !"
  376. 10200 M$(9)[178]"LEFT$ATN(null)'S PEEKPEEK(null) INCLUDES VALMAIL, BULLETINS, CHAT, MESSAGE SCANS, UP/DOWN"
  377. 10210 M$(10)[178]"LOADING, AND A SECURITY CLEARANCE/RIGHT$STR$ SYSTEM FOR UP TO 255 USERS."
  378. 10220 M$(11)[178]"RIGHT$F YOU DON'T HAVE A COPY, IT MAY BE OBTAINED FROM LEN.RIGHT$.(null). ON"
  379. 10230 M$(12)[178]" LENOMPUSERVE, OR BY SENDING A DISK AND SELF ADDRESSED,"
  380. 10240 M$(13)[178]" STAMPED MAILER TO (null)ICHARD PEEKUCHANAN, 3621 (null)YOMING #8,"
  381. 10250 M$(14)[178]" (null)ANSAS LENITY, (null)(null)   64111. PEEKPEEK(null) LINE (816) 931-7LEFT$ATN(null)."
  382. 10260 M$(15)[178]" "
  383. 10270 M$(16)[178]" ":[142]
  384.